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000000 

mm- 

000000 



RMAD DEC/X11 SYSTEM EXERCISER 
VERSION 6 23rHAY-78 

• • *** 

040 modnam: .ascii /rmad 
xflag: .byte open 

ADDR: 176700+0 

VECTOR: 254*0 

BRl: .BYTE PRTY5 

-byte prtyo 
5*i 

OPEN 

OPEN 

OPEN 

SR4: OPEN 
********************* 

Stat: 150000 

init: start 

spoint: modsp 

pascnt: o 

— - J300. 




0. , 144, BUFIN, 256. ,1024. 
0,l300.,l44,BUFIN,256.,102 4. 
MODULE 



************************** 



ft***************** 



BR2: 
DVID1 

SRi: 

SR2: 

R3: 



/ ;mqdule name. 

used to keep track of wbuff usage 
1st device addr. 
1st device vector. 

1ST BR LEVFL. 



SR 



****** ***** : 



ICONT* 
ICOUNT: 

sofcnt: . 

HRDCNT: 

sofpas: 

HRDPAS " 

SYSCNT 

RANNUM 

CONFIG 

RESl: 

RES2: 

svro: 



svRi: 

SVR2: 

svR3: 

SVR4: 
SVR5: 
SVR6: 

csra: 

SBADR: 

acsr: 
wasadr: 

ASTAT: 
ERRTYP: 

asb: 

AWAS: 

RSTRT: 

WDTO: 

WDFR: 

IHTRS 
IDNUMS 







OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

144 



rbufva: bufin 
rbufpa: open 



LEVEL. 
INDIC 



************** 



2ND PR __.„_. 

DEVICE INDICATOR 1. 
SWITCH REGISTER 1 
SWTTCH REGISTER 2 
SWITCH REGISTER 3 
SWITCH REGISTER * 
*************** 

STATUS WORD. 

MODULE START ADDR. 

MODULE STACK POINTER. 

PASS COUNTER. 

H OF ITERATIONS PER PASS=1300. 

LQC TO COUNT ITERATIONS 

LOC TO SAVE TUTAL SOFT ERRORS 

LOC TO SAVE TOTAL HARD ERRORS 

LOC TO SAVE SOFT ERRORS PER PASS 

LOC TO SAVE HARD ERRORS PER PASS 

# OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM ft WHFN RAND MACRO IS 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 

RESERVED FOR MONITOR USE 



LOC TO SAVE 
LOC TO SAVE 



LOC TO SAVE R2. 

LOC TO SAVE R3. 

LOC TO SAVE R4. 

LOC TO SAVE R5. 

LOC TO SAVE P6. 

ADDR OF CURRENT CSR. 

ADDR OF GOOD D AT A, OR 

CONTENTS OF CSR. 

ADDR OF BAD DATA. OR 

STATUS REG CONTENTS. 

TYPE OF FRROR 

EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 

WORDS TO MEMORY PER ITERATION 

WORDS FROM MEMORY PER ITERATION 

* OF INTERRUPTS PER ITERATION 

MODULE IDENTIFICATION NUMBER=144 

READ BUFFER VIRTUAL ADDRESS 

READ BUFFER PHYSICAL ADDRESS 



RMAD DEC/X11 SYSTEM EXERCISER MODULE 
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000130' 


000000 


000132' 
000134' 


000400 
000000 


000136* 
000140' 
000142' 


000000 


002000 
QOOOOO 
000000 


000144" 


000146' 
000150' 


000000 


000000 
000040 




000252* 





rsufea: open 

RBUFSZ: 256. 

wbufpa: open 

WBUFEAS OPEN 
WBUFRQS 1024. 

wbofsz: open 
cderct: open 
cdwdct: open 
free: OPEN 

«REPT SPSIZ 

.NLIST 

.WORD 

-LIST 

.ENDR 
MDDSP: 

;ft***********»**»**4 



;READ BUFFER EA BITS 
?SIZE OF THE READ BUFFER 
/WRITE BUFFER PHYSICAL ADDRESS 
;WRITE BUFFER EA BITS 
?«RITE BUFFER SIZE REQUESTED 
?WRITE BUFFER SIZE AVAILABLE 
;CDATA/DATCK ERROR COUNT 
;CDATA/DATCK WORD COUNT 
yRESERVFD FOR FUTURE USE 
?MODULE STACK STARTS HERE. 



***************************** 



RMAD DEC/XU SYSTEM ^XPRCISPR MODULF 
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mm 

-.77777 
177777 

,nm 
.mm 
nm 

.77777 
11111 
11111 
11111 
77777 
11111 

.77777 

mm 

.77777 
.77777 
.11111 
11111 
77777 
77777 
77777 

'11111 
77777 
77777 
11111 
11111 
77777 

.11111 

mm 
imi 

77777 
.11111 
11111 



000324' 
000326' 



000372' 



177777 

inn 

77777 

77777 

11111 

.77777 

mm 
11111 
11111 

.77777 
77777 
11111 

-11111 

mm 
nm 
nm 
mn 
mn 
nm 



MACY11 


30A(105 


2) 


12-DEC-7a 


file: 


.WORD 


BADSPT 


badspt: 




;BA 




.WORD 


_ 






.WORD 


- 






.WORD 


— 


[ 




.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


- 






.WORD 


— 






.WORD 


- 






.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


— 


'. 




.WORD 


— 






.WORD 


• 






.WORD 


— 






.WORD 


• 






.WORD 


— 


'. 




.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


- 






.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


— 






.WORD 


— 






• WORD 


• 






.WORD 


— 






.WORD 


• 






.WORD 


— 






.WORD 


— 






.WORD 


- 






.WORD 


— 


. 




.WORD 


— ; 






.WORD 


— 






.WORD 


— ' 






.WORD 


- 


. 




.WORD 


— ; 






• WORD 


— ; 






.WORD 


- 






.WORD 


- 


. 




• WORD 


—] 






.WORD 


— 






.WORD 


-: 






.WORD 


- 


. 




.WORD 


-i 
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JBAD SECTOR TABLE ADDRESS 
;BAD SPOT TABLE 

?FIRST WORD = CYLINDER ADDRESS 

J SECOND WORD = TRACK * SECTOR ADDRESS 



SEQ 0007 



RMAD DEC/X11 SYSTEM EXERCISER MODULE 
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3U4 
305 
306 
307 
30P 
309 
310 
311 
312 
313 
314 
315 
316 
317 
31R 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
32Q 
330 

m 

333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 



000424' 
000426' 
000430' 
000432' 
000434' 
000436' 
000440' 
000442' 
000444' 
000446' 
000450' 
000452' 
000454' 
000456' 
000460' 
000462' 
000464' 
000466' 
000470* 
000472' 
000474' 
000476' 
000500' 
000502' 



000504' 
000506' 
000510' 
000512' 
000514' 
000516' 
00Q52Q' 
000522* 



000526' 
000530' 
000532' 
000534' 
000536' 



000540' 
000542' 
000544* 



000546' 
000550- 



.77777 

177777 

77777 

77777 

77777 

77777 

77777 

77777 

.77777 

77777 

.77777 

77777 

.00000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000010 
000050 
000040 
040020 
040157 



000007 
000043 
000034 



034016 
034136 
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-WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

DLTCNT: 

CLK: 

BLKl: 

cyl: 

cylsav: 

sec: o 

cnt: 

CNTl: 

eunc: 
oncee: o 

BADSEC: 
FERADR: 



SEQ 0008 



;DATA LATE ERROR COUNTER 

?DISK BLOCK COUNTER 
CALCULATED CYLINDER ADDRESS 
MODIFIED CYLINDER ADDRESS FOR RM03 



?CYCLF COUNTER 

;CYCLE COUNTERl - DT03 SUPPORT 



;HARDWARE DETECTOR RAD SECTOR 



;DO NOT CHANGE THE ORDER OF THE NEXT 15 LOCATIONS 
JNEEDED FOR MAP22 ROUTINE 



PA18: 

xmem: o 

PA22: 

EA22: 

MRLKRV: 

mblktr: o 

mode: o 

MLOWCY: 

mhicy: o 

; 



;HOLDS 1024 WD BLKS PER TRACK 

;HOLDS BLKS PER CYLINDER 

JHOLDS LAST SECTOR * THAT WILL FIT PER TRACK 

;BLKS THAT FIT IN FIRST 4* ~ " "* "~~ 



;BLKS THAT FIT TN LAST 413 CYLINDERS 



CYLINDERS (0-409) 
(410-822) 



T16: 



8. 

40. 

32. 

410. *40. 

413.M0.-25. 



;1 BLOCK =4 SECTORS = 1024 (256 „ 
;THESE 5 LOC. GET MOVED TO ABOVE 5 
;1024 WORD BLOCKS /CYLINDER 
;SECTORS/TRACK 8. " * 



X_4 ) WORD. 



16 BIT MODE 



;410. X 40. (CYLINDER - 409) 
;413. X 40. (CYLINDER 410 - 822) 
; EXCLUDING THE LAST 25 BLOCKS 



•ft*************** 



7. 

35. 

28. 



iti: 



;THESE 5 LOC GET MAPPED 
;1024 WORD (1» BIT) BLO 
?SECTORS/TRACK 7. X 4. 
; ACTUAL SECTORS ON A TRACK 



INTO FIRST 5 
CKS/CYLINDER 



*35. 
*35.-25. 



;1024 WORD (1» 

"ECTORS/TRACK 

, CTUAL SECTORL _ ., 

;FOR 18 BIT WORD FORMAT ARE 30. 

;410. X 35. (CYLINDER ...,._ 
•413. X 35. (CYLINDER 410 - 852) 
; EXCLUDING THE '' 



ABOVE IF 18 BIT MOD 



409) 

._. - 822 

LAST 25 BLOCKS 



HMAU DRC/ni SYSTEM EXERCISER MODUL* 
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360 

m 






000552' 


000000 


363 


000554' 


000000 


364 
365 


000556' 
000560' 


mm 

000000 


366 


000562' 


367 
36P 
369 
370 


000564' 
000566' 
000570* 


oooo 
oooo 

oooo 
oooo 
oooo 
oooo 


000572' 


371 
372 


000574' 


000000 


000576' 
000600* 


000000 


373 


000400 
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SEQ 0009 



.*»*•******•****•* 



ZERO: 





dskadr: 





dvice: 





drive: 





BLKSAV: 





tbuf: 


8 


wcnti: 


WCNT2: 





unitno: 





mixdv: 





MODI: 





BfJFIN: 


.BLKtf 



;mIXDV=-1,IP NOT A RM03 OR RM02 



256. 



RMAD DEC/X11 SYSTEM EXERCISER MDDULE 
XRMAD0.P11 12-PEC-78 16:17 
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SEQ 0010 



374 
375 


881188- 


000000 


376 


001602' 


000000 


377 


001604' 


000000 


378 


001606* 
001610* 


000000 


37° 
380 


000000 


001612' 


000000 


381 


001614' 
001616' 
001620' 


000000 


382 


000000 


m 


000000 


001622' 


000000 


385 


001624' 


000000 


386 


001626' 
001630' 


000000 


38*7 


000000 


388 


001632' 


000000 


389 


001634' 


000000 


390 


001636' 
001640' 


000000 


391 


000000 


392 


001642' 


000000 


393 


001644' 


000000 


394 


001646/ 
001650' 


000000 


3 95 


000000 


396 


001652' 


000000 


397 


001654* 


000502 


398 
399 


001656' 
001660* 


000470 
177777 



table: 

rmcsi: 

rmwc: 

rmba: 

rmda: 

RMCS2: 

rmds: 

RMERl: 

rmas: 
rmla: 
rmdb: 

RMMRl: 

rmdt: 
rmsn: 
rmof: 
rmdc: 
rmhr: 

RMMR2: 
RMER2: 
RMECl: 
RMEC2: 

rmbae: 

RMCS3: 

xferad: 
xferct: 

























FERADR 

cnt 

177777 



RMAD DEC/X11 SYSTEM EXERCISER MODULE 
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003120 
176372 



176226 
176216 
176214 



176654 
176062 



176504 

176552 
000041 



006746' 



I0$i 



12$: 



13$: 



176462 DAOST: 



176350 
176454 



MOV 

MOV 

MOV 

CLR 

CLR 

MOV 

MOV 

BIT 

BEQ 

CLR 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

CLRB 

MOV 

CMPB 

BNE 

MOVB 

MOV 

TSTB 

BEQ 

ASL 

DECB 

BR 

BITB 

BEQ 

BICB 

MSGN$ 



TST 
BNE 
JMP 

MOV 

MOV 

MOV 

MOV 

JSR 

JSR 

JSR 

BITB 

BEQ 

JMP 

JSR 

BR 

JSR 

TST 
BNE 
BNE 
JMP 



p 5 T;« 

#3,INTR 

CNT 

DLTCNT 

#BIT12,MGD1 

#T16,R0 

|RIT5,SR1 

mSdi 

#T13,R0 
»MBLKRV,R1 
|5<R2 
(R0)+,(R1)* 

l7,ONCEE 
DVID1 / DVICE 

ill'* 

RO 
*9$„ 



L 3 §~ 



ri;dvice 

,BEGIN,LDRIVE 



DVICE 
DAOST 
FINI 

DVICE, DRIVE 

SPOINT,R6 

»-l,BLKl 

|-1,UNITN0 

PC, SETUP 

PC,REZET 

PC C FDUNIT 

#BIT3,FLAG 

-+6 

KIN I 

R5, READY 

CT 

PC,NOTRDY 

DVICE 
BADFL 

FINI 



1024, ,..HORDS_FRQM .MEM/ 



___., - x .. /ITERATION 

256 WORDS TO MEM/lfERATION 
?3 INTERRUPTS/ITERATION 
? ZERO END OF PASS TESTER 
;CLEAR DATA LATE ERROR COUNTER 
;SETUP FOR 16 BIT MODE (NORMAL) 
?GET TABLE OF VALUES FOR 16 BIT MODF 
?16 BIT MODE? 

YES 

;no 1* bit mode. clear fmt bit 

?get table of values for 18 bit mode 

;begin of table entries 

;no. of entries 

;store an entry 

yCOUNT IT 

;do more 

;set one time only flags 

; clear flags 

J GET DRIVE INDICATOR 

iTF RM TS LOAD MEDIUM THEN 

;begin 

; GET LOAD-DRIVE NUMBER 

? INITIALIZE DRIVE POINTER 

; WHILE NOT POINTING AT LOAD-DRIVE DO 

; BEGIN 

; POINT TO NEXT DRIVE 

J COUNT SHIFTS 

; END 

; IF LOAD-DRIVE SELECTED THEN 

; BEGIN 



DROP THE DEVICE 
; ASCII MESSAGE CAL* 



ALL WITH COMMON HEADER 
END 
•ND 
'" NO DRIVES ARE SELECTED THEN 



;begin 

; drop module 

;end 

; ALSO SAVE IT IN DRIVE 

;restore stack pointer 
; initialize block counter 
; initialize device counter 
;set up controller register 
;reset controller and drives 
;found the first drive available 

?NO DRIVE ? 
?DRIVE AVAILABLE 
;DROP THE MODULE 

;device ready ? 

;yes 

?no ,try not ready routnie 

;drop the module •> 
;nq 

JBRANCH IF DRIVE AVAILABLE 
;YES DROP MODULE 



RMAD DEC/Xll SYSTEM EXERCISER MODULE 
XRMAD0.P11 12-DEC-78 16:17 

000254- 

000100 

177777 



176242 
176327 
176320 
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SEQ 0012 




2$: 



3 k s l 
002332- 

88H3S-' 

002346- 
002350- 



-J5467 

883|« 

mm 

012703 
060203 

mm 



002636 
176266 

175616 176252 



01104 
""-.SO 



176246 
0011" " 
0001! 
OQ0600 
-0254- 
0200 



000400 




1$: 



- 3$: 



176072 5$: 



000425 



MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

MOVB 

MOVB 

TST 

BNE 

INC 

MOV 

MOV 

MOV 

GETPA 

JSR 

TST 

BMI 

MOV 

NEG 

JSR 

JMP 

MOV 

MOV 

MOV 

ADD 

MOV 

ADD 

ADD 

CMP 

BEQ 

CMP 

BNE 

MOV 

MOV 

ADD 

ADD 

CMP 

BH1S 

CMP 

BHIS 

BR 

MSGNS 

JMP 

JSR 

BITB 

BNE 

JSR 

BR 

JSR 

BR 

MOV 

BR 



#BADSPT,R1 

|64. € R2 

|-l,tRl>+ 

jf§22.,CYL 
|4,DSKADR+1 

for* " 

.♦6 

DSKADR 

UNITNO,§RMCS2 

ft'M 

$, BEGIN, RBUFVA 
PC,RM03CK 
MIXDV 

R§UFSZ,WCNT2 

WCNT2 

R5,READ 

RETRX 

ttBUFIN-Rl 

|BADSPT.R2 

U28.,r5 

2,R3 

256. ,R4 

l«R4 
#10, Rl 
jjl,(Rl> 

jI 4 / R2 
1/R4 

R2,R3 

,MES14, BEGIN 
FINI 

PC € FDUNIT 
|BIT3,FLAG 

R5.READY 

BADFL 

PC,NOTRDY 

BADFL 

#-l,UNITNO 



Si 2 



n 



R2) 



TABLE ADDRESS 



?32 WORDS 
;reset TO -l, 
;DECREMENT ONE WORD 
;BRANCH IF NOT DONE 
RETRIEVE THE BAD SPOT FILE 
;from THE PACK CYL-822, TRK-4 

;sec-0(sec-12 for user bad spot file) 

;in 16 bit mode ? 

;branch if it is 

;0therwise start from sector 1 

7load drive number 

} set to cyl 

;set to trk 0,sec at start time 

5get physical address from 16-bit rbufva 
;check if rm03 or rm02 

;not THEM ? 
;BRANCH IF NOT 
;WORD CTR 
;2'S COMPLEMENT 

;read one Sector at a time 
;branch if error 
;buffer address 

;table address 

;max 16 bad sectors, each sector defined by two 
;last address 
?end of bad spot file 
;last address of bad spot ftle 
?bad sector starts at 5th word 
;table is empty ? 
;branch if it is 
;entry for bad spot table ? 
;rranch if not 
;load cylinder address 
;load the track and sector addresses 
?asjust pointer 

;ADJUST POINTER 
;END OF TABLE ? 

;branch if so 

;over 32 bad sectors recorded ? 

?BRANCH IF SO 

;loop BACK 

;MESSAGE: OVER 32 BAD SECTORS 
;DROP THE MODULES 
;FOWND NEXT DRIVE 
;DRVIE AVAILABLE ? 

;branch IF NOT 

;LET DRIVE READY 

;branch if drive ready 
;try drive not ready 
;branch IF SUCCESSFUL 
;RESET unit numrer 

J ALL ON LINE DRIVF HAS BEEN RETPIVED THE BAD SPOT FILE 
;+ SUPPORT - DT03 



WAD DEC/X11 
XRMUDO.Pli 



^ySTE»?_EXERClSEK 



12-DEC-78 16: 
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SEQ 0013 



512 
513 
514 
515 
516 
517 



002502' 105267 
002506* 105267 
002512' 122767 
002520- 101263 



176046 
176042 
000035 



176034 



87050* 000000* 
0306 



INCR DSKADP 

INCB OSKADR 

CMPR #30.,DSKAnR 

BHI BADFL2 

MSGN$,MES15 C BEGIN 
JMP PINT 



•ADJUST 2 SECTOR 
; ADJUST TWO SECTOR 

;SECTORS 0,2,4, 30, ALL TRIED 

?BRANCH IF NOT 

SMESSAGF : RETRIEVE FAILS 

>DROP THE MODULES 



RMAD DEC/X11 SYSTEM EXERCISER MODULE 
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MACV11 30A(1052) 12-DEC-78 16:22 PAGE 16 



SEQ 0014 






51* 

52? 
521 
522 
523 
524 
525 
526 
527 
528 

m 

531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
5 43 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 



002534 
002540 
002542 
002546 ... 
002550* 000 

881111' 

002562 



005767 175732 



001005 
005767 
001002 
""167 



002570* 
002574* 
002602* 
002602* 
002606- 
002614* 
002620* 
002624- 

002632* 
002636' 
002640- 
002644* 
002652* 
002654* 
002662* 
002664- 
002670- 
002674- 

881 WS: 

002706' 
002712- 
002716- 
002722* 
002726* 
002732* 



mm 

005467 
016767 



m 



17572? 
177106 



000000- 000124- 
175344 176000 



TST 
BNE 
TST 
BNE 
JMP 



CNT1 

RSTRT1 

CNT 

RSTRT1 

START 



17577 4 



5660 175760 



000000- 
175330 175752 



175746 
002376 
175742 

175720 

000010 

177777 

002250 
002606 

002376 
004156 
004154 
004152 
004150 
004146 
004144 
000466 



176756 



004226 
175710 



STRT: 
STRTl: 



2$; 

next: 



GETPA$,REGIN, RBUFVA 
MOV RBUFSZ,WCNT2 

NEG WCNT2 

MOV BLK1,BLKSAV 



1$: 



GW8UFS, 

MOV 

NEG 

JSR 

MOV 

TST 

BNE 

JMP 

BITB 

BEQ 

MOV 

BR 

JSR 

JSR 

BR 

JSR 

CLR 

CLR 

CLR 

CLR 

CLR 

CLR 

JSR 



BEGIN 

WBUFSZ,HCNT1 

WCNT1 

PC,FDUNIT 

UNITNG,8RMCS2 

DVICE 

FINI 

«BIT3,FLAG 
ABW 

PC,RM03CK 
R5, READY 

PC,NOTRDY 

TRY1 

TRY3 

TRY5 

TRY7 

TRY9 

TRY11 

R5,UPDATT 



;+ I SUPPORT 
;♦ / FOR 
;«• / DT03 
}* t BUS 

;♦ / SWITCH 
?♦/ OPTION 

5GET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 
; SAVE READ BUFFER SIZE 
; GET THE 2*S COMPLEMENT 
?INIT BLOCK COUNTER 

;GET WRITE BUFFER INFORMATION 

; SAVE WRITE BUFFER SIZE 

; GET THE 2*S COMPLEMENT 

; FIND UNIT # 

;GET UNIT # SO BOTH PORTS 

;WILL BE LOOKING FOR SAME DRIVE 

? ANY DRIVES LEFT ? 

; YES 

; NO DROP MODULE 

;MORE DRIVES ON SYS? 

JYES 

PRESET DRIVE NUMBER 
;YES CORRECT SETUP FOR DUEL PORT RETURN 
^UPDATE DSK ADDR 
; IS DRIVE READY ? 
; YES, CONTINUE 

; NOT READY, GO WAIT UNTIL IT IS 
? ZERO RETRY COUNTERS 



;to see if rm03 or rm02 
;for the selected drive 
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004124 
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GOA: 

gob: 



nxti: 

RETRY1: 



IS: 

RETRY2: 

IS: 
RETRY3: 



JSR 

JMP 

8TTB 

BEQ 

BICB 



R5, WRITE 

RETRY1 

|BIT2,FLAG 

GOA 

#BIT2,FLAG 

MO? I-1.BLK1 

JMP STRT 

JSR R5,WRITCK 

JMP RETRY2 

JSR R5,READ 

JMP RETRY3 

CDATA$,8EGIN,RRUFPA 

INC CNT1 

ENDIT$, BEGIN 

JMP NEXT 
ENDS, BEGIN 



JMP 

TST 

BEQ 

CLR 

JMP 

INCB 

CMPB 

BEQ 

JMP 



NEXT 

BADSEC 

. + 10. 

BADSEC 

NEXTA 

TRY1 

»3,TRY1 

GOC 



600 



007002' 



1$: 



MSGN$ / BEGIN#EXCED1 
JMP NEXTA 
INCB TRY2 
CMPB #3,TRY2 
BEQ IS 
JMP GOA 

MSGN$,BEGlN,EXCED2 
JMP NEXTA 
INCB TRY3 
CMPB #3,TRY3 
BEQ IS 
JMP GOB 

MSGN5, BEGIN, EXCED3 
JMP NEXTA 



WRITE SOME DATA 

IF ERRQPS, TRY IT AGAIN 

DISK OVERFLOW ? 
} NO, CONTINUE 
} YES, CLEAR OVERFLOW FLAG 
; RESET BLOCK # 
? CONTINUE 

', ^RITE-CHECK THE DATA 
; IF ERRORS,, TRY AGAIN 
; READ THE DATA WRITTEN 
; IF FRRORS, TRY AGAIN 
} REQUEST FOR MONITOR TO CHECK DATA 
1 IF ERROR, CONTINUE 

;*BUMP INDICATOR FOR DT03 
^SIGNAL END OF ITERATION.. 
^MONITOR SHALL TEST END OF PASS 



; DROP THE MODULE 
;get NEXT DRIVE 

;bad sector detected ? 

;detore 

;clear the flag 

;exit 

? COUNT THE RETRYS 

; LIMIT EXCEEDED 

; YES 

; NO RETRY 

; ASCII MESSAGE CALL WITH COMMON HEADER 

; GO TO NEXT DRIVE 

; COUNT THE RETRYS 

? LIMIT EXCEEDED 

; YES 

; NO RETRY 

;ASCII MESSAGE CALL yITH COMMON HEADER 

; GO TO NEXT DRIVE 

; COUNT THE RETRYS 

? LIMIT EXCEEDED 

? YES 

? NO RETRY 

;ASCII MESSAGE CALL WITH COMMON HEADER 
; GO TO NEXT DRIVE 



RMAD DE 
XRMADO. 

6 6 8i 

603 
604 
605 
606 
607 
608 
609 

Si! 

612 

m 

615 
616 
617 
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003206- 032767 00000 

003214* 001405 

"03216- 004767 

03222- 104403 



1 174602 NEXTA: 



003222- 104403 
003230- 000167 



d&aoiSo*- 

177364 



1$: 



BIT #BIT0,SRI ; DROP THE DRIVE 

BEQ IS ; NO, SKIP TO NEXT DRIVE 

JSR PC.DROP ; YES, DROP OFFENDING DRIVE 

MSGN$, BEGIN, DRP ;ASCII MESSAGE CALL WITH COMMON HEADER 

JMP NEXT ; GO ON TO NEXT DRIVE 



-MACRO 

LINEUP 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

-ENDM 



LINEUP SA 

EABITS 

EABITS,R0 

RO 

RO 

RO 

RO 

R0,XMEH 



LINE UP EA BITS FOR RHCS1 

GET EXTENDED MEMORY BITS 
SHIFT 4 PLACES TO THE LEFT 
TO LINE UP WITH RHCS1 



; SAVE THE SHIFTED BITS 
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SEQ 0017 



R<4 DISK DRIVERS 



632 
633 
634 
635 

636 
6J7 
63« 
639 
640 
641 
642 
643 
644 
645 
646 

m 



003310' 
003312' 



003432' 
003440" 
003446' 
003454' 
003462' 
003466' 
003474' 

003502' 
003506' 
003510' 
003512* 
003514' 
003516* 
003522' 



016777 
016777 
016777 
004767 
016777 
016767 

016700 
006300 
006300 
006300 
006300 
010067 
000167 
012767 
016777 
016777 

mm 

016777 
016767 

016700 
006300 
006300 
006300 
006300 
010067 
000167 
004767 
000205 

012767 
016777 
016777 
016777 
004767 
016777 
016767 

016700 
006300 
006300 
006300 
006300 
010067 
000442 



000161 

175218 

175272 
001650 
175166 
175162 

174626 



175162 
000300 
000151 
175224 
174564 
175176 
001554 
175072 
175066 

174532 



175066 
000204 

001010 



000171 
175124 
174454 
175074 
001452 
174770 
174764 

174422 



175232 

17 6 6 ^ 

176322 

176336 
175156 



175136 
176236 
176232 



176242 
175062 



175034 
176134 
176130 
176124 

176140 
174760 



opdatt: 

READ: 



MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

LINEUP 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

JMP 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

LINFUP 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

JMP 

JSR 

RTS 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

LINEUP 

MOV 

ASL 

ASL 

ASL 

ASL 

MOV 

BR 



#161,FUNC 

wcnti,§rmwc 

wbufpaJbrmba 

dskadr.&rmda 

PC,RM03CK 

CYL,»RMDC 

CYLSAV/CYL 

WBUFEA 

WBUFEA, RO 

RO 

RO 

RO 

RO 

R0,XMEM 

GOGO 

#151,FUNC 

WCNTl,(aRMWC 

WBUFPA,aRMBA 

DSKADRf&RMDA 

PC,RM03CK 

CYL,ftRMDC 

CYLSAV,CYL 

WBUFEA 

WRUFEA,R0 

RO 

RO 

RO 

RO 

R0,XMEM 

GOGO 

PC-BLOCK 

R5 

#171 £ FUNC 

WCNT2,§RMWC 

RBUFPA, faRMBA 

DSKADR,$RMDA 

PC / RM03CK 

CYL*$RMDC 

CYLSAV,CYL 

RBUFEA 

RBUFEA, RO 

RO 

RO 

RO 

R0,XMEH 

GOGO 



LOAD WRITE FUNCTION 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD DISK ADDRESS 

CHECK FOR RM03 DRIVE 

LOAD CYLINDER ADDRESS 

RESTORE CALCULATED CYLINDER ADDRESS 

GET EXTENDED MEMORY BITS 
SHIFT 4 PLACES TO THE LEFT 
TO LINE UP WITH RHCSl 



SAVE THE SHIFTED BITS 

CONTINUE 

LOAD WRITE-CHECK FUNCTION 

LOAD WORD COUNT 

LOAD BUFFER ADDRESS 

LOAD DISK ADDRESS 

CHECK FOR RM03 DRIVE 

LOAD CYLINDER ADDRESS 

RESTORE CALCULATED CYLINDER ADDRESS 

GET EXTENDED MEMORY BITS 
SHIFT 4 PLACES TO THE LEFT 
TO LINE UP WITH RHCSl 



SAVE THE SHIFTED BITS 
CONTINUE 



? LOAD READ FUNCTION 

} LOAD WORD COUNT 

', LOAD BUFFER ADDRESS 

; LOAD DISK ADDRESS 

? CHECK FOR RM03 DRIVE 

} LOAD CYLINDER ADDRESS 

; RESTORE CALCULATED CYLINDER ADDRESS 

} GET EXTENDED MEMORY BITS 

J SHIFT 4 PLACES TO THE LEFT 

?• TO LINE UP WITH RKCS1 



; SAVE THE SHIFTED BITS 
; CONTINUE 
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670 
671 
672 
673 
674 
675 
676 
677 
67H 
679 
*80 
681 
682 
683 
684 
685 
686 
687 
6RR 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 

71? 

712 
713 
714 
715 



003524' 
003532' 
003540' 
003542' 
003544' 
003550* 
003554' 
003562' 
003570' 
003572' 
003576' 
003602' 
003604' 
003612' 
003620' 
003626' 

003630* 
003636' 
003644' 
003552' 
003654' 
003662' 
003666' 
003672' 
003676* 
003702' 
003710' 
003716' 
003724* 
003732' 
003736- 
00^744- 
003752* 
003760' 

003764* 

003764- 



003772* 
003776' 
004000* 
004002' 
004004- 



016777 
012777 
000240 
000240 
104407 
104407 
012777 
032777 
001005 
104407 
104407 
000767 
012777 
012777 
016777 
000205 



012777 
032767 
001434 
017767 
006267 
006267 
006267 
006267 
104416 
016777 
016777 
04 27 67 
000367 
016767 
056767 
016777 
104400 



004567 
000205 
005725 
005725 
000205 



175042 
000011 



176056 
176040 



000000 
000000 
00002' 
00020 



000000* 
000000* 

177777 

040000 
174752 



174736 

003764- 

001000 

75724 
_74620 
174614 

.74610 
\74604 

oooooo- 

174574 
174570 
000034 
174554 
174550 
174536 
174516 

oooooo- 



I I 



oooooo- 

000116 



76016 

76010 



176004 
175760 
176004 



175752 
174144 
174204 



175666 
175724 
174560 

174542 
174522 
175620 



MACV11 

clear: 
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SEQ 0013 



IS: 

NTRHPT: 

1$: 



AKS, BEGIN 
AK$, BEGIN 



AK$, BEGIN 

AKS, BEGIN 

IS 



MOV 

MOV 

NOP 

NOP 

BRE 

BRE 

MOV 

BIT 

BNE 

BRE 

BRE 

BR 

MOV 

MOV 

MOV 

RTS 



MOV 

MOV 

BIT 

BEQ 

MOV 

ASR 

ASR 

ASR 

ASR 

MAP22S, 

MOV 

MOV 

3IC 

SWAB 

MOV 

BIS 

MOV 

EXITS, B 



UNITNO,gR«C 
#11,@RMCS1 



i21,gRMCSl 



@RMCS1 



tt-l,8RMAS 
|B1T14 £ «RMCS1 
MODl,aftMOF 
R5 

UNITNO,»RMCS2 

PTRUPT,»VECT0R 

|aDDR22,RES1 

@RMRA,PA18 

XMEM 

XMEM 

XMEM 

XMEM 

BEGIN,PA1R 

PA22/0RMBA 

EA22/PRMBAE 

i3Jj«22 

EA22,XMEM 
XMEM,FUNC 
FUNC,»RMCS1 
EGIN 



• f LOAD UNIT ADDRESS 
} ISSUE A DRIVE CLEAR 

;wait 

;for drive clear to finish 

?TEMPORARY RETURN TO MONITOR-. .. 
JTHEN CONTINUE AT NEXT INSTRUCTION. 
; ISSUE A PACK ACK 

% FUNCTION DONE ? 
? YES, CONTINUE 

^TEMPORARY RETURN TO MONITOR.... 
;THEN CONTINUE AT NEXT INSTRUCTION. 
; NO, WAIT TILL DONE 
?CLEAR AS BIT 

} CLEAR ANY CONTROLLER ERRORS 
; SET BIT FOR 11 FORMAT 
? RETURN 



} LOAD UNIT SELECT 

; SET INTERUPT ENTRY POINTER 

Ul/70? 

?NO 

?GET 18 BIT ADDR 

;SHIFT EA BITS TO POSITION 4,5 



; GET 22-BIT ADDR FROM 18-BIT ADDR 
;load BA REG 
•LOAD BAE REG 
;CLEAR UNWANTED BITS 
;LOAD INTO BITS 8,9 

;LOAD XMEM TO SET INTO FUNCTION CODE 
?LOAD EXTENDED MEMORY BITS 



;execute the function 

;exit to monitor. 



MODULE WAIT FOR INTERRUPT. 



pirqsJbeginJi* 



QUEUE UP TO CONTINUE AT 1$ AND RTI 



JSR 
RTS 
TST 
TST 
RTS 



R5, ERRORS 

If 



GO CHECK FOR ERRORS 
ERRORS DETECTED, RETURN 
NO ERRORS, SKIP RETRY 

RETURN OK 



RNAD DEC/ XI I S 

&RMHD0«P11 
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*%m 



9 132767 
" 001406 
- "42767 
16701 




174446 

0000^2 

000001 
174464 



003054 
003044 



000004 003024 



000001 
17 



016700 174504 

001403 

006301 

88f|9| 

040167 



4$: 
5$: 

drop: 

IS: 

2S: 



* 104420^ 000000' 000572* 
004112* 000207 



MOV 

MOV 

BITB 

BEG 

BICR 

MOV 

BEQ 

TST 

NTS 

BTSB 

RTS 



MOV 
MOV 
BEQ 
ASL 
DEC 



BNE. 
BIC 

;* 



BLKURO 
WB0FSZ#R3 

|BITI,FLAG 

ftBITO/FLAG 
MHIC¥,R1 

#BIT2,FLAG 



| SA¥E THE CURRENT RLQCK NUMB 

} GET THE TRANSFER SITE 

? PLENTY OF ROOM LEFT ? 

? YES, CONTINUE 

', CLEAR 32K INDICATOR 

} LOAD MA*. NUMBER OF BLOCKS 

?EXHAT!ST OF ALL BLOCKS 

; YES, MUST BE A REAL ERROR 

; RETURN, ERROR 

? SET OVERFLOW FLAG 

} RETURN OK 



) 



si 

RO 

if 



,R1 
ITNO,RQ 



} INITIALIZE DROP PICKER 

; GET THE DRIVE NUMBER 

; IF DRIVE GO DROP IT 

; POINT TO NEXT DRIVE 

? IS THIS THE ONE ? 

; NO £ LOOK AGAIN 

#DVICE ; DROP THE DRTVE 
***************************************** 

;CONVERT UNITNO TO ASCII AN 
;STORE AT ADR1 
OTD A$, BEGIN, UNITN0,ADR1 



************* 
D 



****** 
PC 



****************************************** 
; RETURN 



********** 
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SEQ 0020 



w 



CLR 
TST 
BMI 





****** 



«BIT10,@RMDS 
ftESYNC 
PC,ERSUB1 
ftRMCS2 

I 1 ! 

DLTCNT 

JBIT2,SR1 

,BEGIN,DLTERR 

pIT13,9RMCSl 

|BlT8,@RMCS2 

|BIT14,@RMCS1 

#BIT14,»RMDS 

gRMAS 

eIbtyp 

********* 



******** 



8$ 

BIT «RlTl5,gRMER2 
BNE 9$ 
MSGN$, BEGIN, TRERR 
BR 5$ 

HSGN$,BEG1N,MCPERR 
BR 5$ 

MSGN$,BEGIN,MDPFRR 
TST ~~ ■*- 

B is 

JSR 
MOV 
BIT 
BNE 



JCLEAR THE BAD SECTOR FLAG 

; ATTENTION OR ERROR *> 

?YES 

SNO GO ON TO NEXT FUNTION 

; ADDRESS OVERFLOW ? 

} NO, CONTINUE 

; YES, IS IT A REAL ERROR ? 

; NO, CONTINUE 

;did lbt set? 

?YES 

; LOAD ERROR INFORMATION 

?IS THIS A DATA LATE ERROR? 

?NO 

?ADD 1 TO DATA LATE COUNTER 

?TYPE ERROR AND COUNT IT? 

?NO 

?ASCII MESSAGE CALL WITH COMMON HEADER 

?CONT 

; MASSBUS CONTROL PARITY ERROR ? 

? YES 

} MASSBUS DATA PARITY ERROR ? 

? YES 

} TRANSFER ERROR ? 

; YES 

', ANY DRIVE ERRORS ? 

? YES 

; ANY ATTENTIONS ACTIVE ? 

} YES, CONTINUE 

JUNKNOWN ERROR 

**************************************** 

• t SPECIAL CONDITION SET BUT NO REASON FOUND 
**************************************** 

•t RETURN 



1H/PIU 

.RMAS 

PC, WHO 
RMDB.RO 



»BIT7,gRMCS2 

MOV tfZERO.RMDR 

MOV fl.ERRTYP 

******************** 

%**£*Sg*-****Jg*L 



MOV 
JSR 



R0,RMDB 
R5, CLEAR 



;A BAD SPOT ? ****** 

>BRANCH IF SO ******* 

JASCII MESSAGE CALL WITH COMMON HEADER 

; GO DUMP REGISTERS 

;ASCII MESSAGE CALL WITH COMMON HEADER 
; GO DUMP REGISTERS 

JASCII MESSAGE CALL WITH COMMON HEADER 
; ANY ATTENTIONS ACTIVE ? 
; NO, CONTINUE 

; YES, FIND OUT WHICH DRIVE IT IS 
; SAVE ADDRFSS OF DATA BUFFER 
; CAN DATA BUFFER BE READ ? 
; YES, CONTINUE 
; NO, LOAD ADDRESS OF ZERO 
?DATA ERROR 
****************************************** 

; DUMP RH11 AND RM REGISTERS 
********************************************* 

J RESTORE DATA RUFFER ADDRESS 
;GO CLEAR OUT ERRORS 
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SEQ 0021 



ROO 
«01 
802 
»03 



004416' 000205 

004420' 004567 

004424' 012767 

004432' 000205 



i??w 



174046 



9S : 



RTS 
JSR 
MOV 
RTS 



R5 

R5, CLEAR 

g-l,BADSEC 



; ERRORS DETECTED. RETURN 
?CLEAR THE BAD SPOT ERROR 
?SET THE BAD SPOT ERROR FLAG 

;exit 
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SEQ 0022 



80 4 
«05 
806 
R07 
808 
R09 
810 
Pll 
R12 
813 
R14 
815 
P16 
P17 
818 
819 
820 
R21 
822 
P23 
824 
825 
826 
827 
R2R 
829 
R30 

831 

833 
834 
835 
836 
837 
838 
830 
840 



004434' 005725 
004436' 000205 



004440' 
004444' 
004452' 
004454' 
004462' 
004464* 
004470' 
004476' 

004500' 
004506' 
004510" 
004514' 
004522' 
004526* 
004532' 
004534' 
004542' 
00 45.46' 
004552' 
004556' 
004564' 
004566' 



005267 
132767 
001012 
026767 
101017 
005067 
15 2767 
000411 

026767 
101005 
005067 
142767 
016700 

nvs 

016777 
005067 
005067 
005067 
022777 
101414 
017767 



004574' 062767 



004602' 
004610' 
004616' 



017767 
017767 
000207 



174014 
000002 



174042 



173770 
000002 



hlllti 

173732 
174042 

174032 
173714 
173712 
173776 
000620 

175042 

000001 

175000 
174772 



TST 
RTS 



&§ 5) * 



JSKIP RETRY 
1 RETURN OK 



?THIS ROUTINE DETERMINES IF THERE IS ENOUGH ROOM ON THE DISK TO 
;DO ANOTHER TRANSFER, IF NOT, PROGRAM GOES TO RESYNC TO 
; ALLOW ROTH PROCESSORS TO RESYNC AND TO RESTARTo 



002426 
173776 

002402 

173752 

002355 

175046 

175050 

173666 

173660 

173744 
173736 



is: 
2S: 



3$: 



INC 

8ITB 

BNE 

CMP 

BHI 

CLR 

BISR 

BR 

CMP 

BHI 

CLR 

BICR 

MOV 

TST 

BEQ 

MOV 

CLR 

CLR 

CLR 

CMP 

BLOS 

MOV 

MOV 

ADD 

MOV 
MOV 
RTS 



BLK1 
»BIT1,FLAG 

ML0WCY,BLK1 

BLK1 
|BIT1,FLAG 

MHICY,BLK1 

2$ 

BLK1 

#BIT1,FLAG 

§LK1,R0 

MIXDV 

CQNVRT 

UNITNO,@RMCS2 

CYL 

CYLSAV 

DSKADP 

#400.,@RMDC 

ftRMDC,CYL 
»RMDC, CYLSAV 
Il,CYL 

£RMDA,DSKADR 
gRMDA,DSKADR 



OR HIGHER ? 
OR LOfeJER ? 



STEP TO NEXT BLOCK 
BLOCK g IN CYLINDER 410. 
YES, GO ADJUST RLOCK # 
BLOCK ft IN CYLINDER 410* 
YES, RETURN 
NO, RESET BLOCK # 
SET HIGH RANGE FLAG 
RETURN 

BLOCK « IN WITHIN RANGE ? 

YES, RETURN 

NO, RESET BLOCK ft 

SET FLAG TO LOWER RANGE FOR NEH PACK CYCLE 
TRANSFER PAREMETER FOR CONVRT 
IS AN RM03/RM02 7 
BRANCH IF SO 
LOAD THE DRIVE ADDRESS 
RESET CYLINDER ADDRESS 
RESET THE SAVED CYLINDER ADDRESS 
RESET THE TRACK AND SECTOR ADDRESS 
OVER CYL 400 ? 
BRANCH IF SO 



THE NUMBER CAN MODIFY TO INCREMENT 
THE CYLINDER ADDRESS 



BOSH 11 s IS!5Sc9& B ?*?F? HOoaLE 
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002226 
173600 



173556 
173546 



173524 

002125 
173502 

iil 



173444 
000004 

mm 

000002 
173410 

29ISS3 

177777 

8888§i 



000254" 

mm- 



2$t 
3SS 

4S: 

5SI 
BADLOPS 

IS; 

2$S 



I- % 



fill 

HBLKTR,R1 

llO.,CYL 
0,R1 

¥L 
URO 



|Q0«^CYL 

|j8i' CTL 

Ik 

R0 



CLEAR DISK ADDRESSES 



} LOAD REG. 1 WITH BLK PER TRACK 
} REG HAS BLK ' " " ' " 



} reg has blk1 (block g) in it 

i load rec» 2 $ith blk per revolution 

; block & on cylinder 410* or lower ? 

} no/load high base value for cylinder adr« 

i correct cvlinher found ? 



4, SEC 



5,TRK 

MODE^SEC 



CONTINUE UNTIL CORRECT CYLINDER IS FOUND 
e NOT 0¥ER CYL 800 FOR PROTECT BAD SE„FILE 

I CORRECT TRACK FOUND ? 

1 YES, CONTINUE 

| NO f STEP TO NEXT TRACK 

} CONTINUE UNTIL CORRECT TRACK IS F 
} CORRECT SECTOR FOUND ? 

\ W/^IVW\ W 1024 

} DECREASE BLOCK I BV 1 
} CONTINUE UNTIL CORRECT 



1 EJSJ'JBc 



WORDS 
SECTOR IS FOUND 



i YES. ADJUST SECTOR SO NO OVERFLOW 
} LOAD SECTOR INTO DISK ADDRESS 

/CKFCK THE THE SELECT ADDRESS' IS IN THE PAD SPOT ? 

,R0 SCHECft THE NEXT SPOT 

K^BADSpT*-l(RO> a ?ON THE BSD SPOT TRACK ? 

ii 1 - R0 lis^r 



- r B»DSPT(R0) 



>RESS IS IN THIS BLOCK RANGE "> 



mi c 



!! 
IS 



ORE THE SECTOR VALUE 
CURRENT SELECTED BLOCK IF BAD 
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nam 



^SELECT OTHER BLOCK 
?NO# THE& 'BRANCH BACK 



6 17 

5 17 



173316 RM03CKS 
4446 



mm- nut 1 ! 



020025 174436 
024024 174426 
020024 174416 



177777 173354 



IS: 



f24025,@R^ 



r?i 



DT 

0025,3RMDT 

p4024,^DT 

0024,§RMDT 

GH$,DRPi; "BEGIN 
" f!ftf,R5 

#-l,MTXDV 



mF« 




«»SINGLE PORT RM03 ? 
?DROP THE DRIVE ?IF NOT A RM03 

m NEXT DRIVE 



',!' 



e R «k 



SEQ 0024 



III 



S R «^ 



RM02 DRIVE FLAG 
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SEQ 0025 



023 
924 
Q25 
926 
027 
928 
02Q 
o30 
931 
°32 
933 
934 
935 
Q 36 
937 
938 
939 
Q4U 
941 
042 
943 
944 
045 
Q46 
047 
948 
040 
950 
051 
952 
953 
054 
955 
956 
957 
958 
059 
960 
061 
962 



005300' 
005306' 
005312- 
005320' 
005322- 
005326- 
005332' 
005336' 
005340' 
005346' 
005350' 
005354' 
005360' 
005362' 
005366" 



005267 
142767 
022767 
003404 
006267 
103364 
000411 

012767 
016767 
000207 



012767 
005777 
032777 
001013 
104407 
104407 
005367 
001363 
104403 
000405 
004567 
004567 
QQ0422 
004767 
012767 



173344 

000010 
000010 



000010 
177777 



077777 

174766 
004000 

000000' 
00000H* 
173120 



000000" 007014' 



176150 
000122 



005402' 
005410' 
005414' 
005422' 
005426' 



012777 
004767 
104403 
000167 
000207 



001644 
173330 



001616 
173302 
173262 



173150 
174260 



2S: 



INC 

BICR 

CMP 

BLE 

ASR 

BCC 

BR 

BISB 

MOV 

MOV 

RTS 



UN1TN0 
tt8lT3,FLAG 



«8IT3,FLAG 
»R.,UNITNO 




COUNT A DRIVE 

CLEAR END OF DRIVES FLAG 

ALL DRIVES CHECKED ? 

YES, GO FLAG END OF DRIVES 

NO, IS NEXT DRIVE CHOSEN ? 

NO, GO TRY ANOTHER DRIVE 

RETURN 

SET END OF DRIVES FLAG 

RESET DRIVE COUNTER 

RESTORE CHOSEN DRIVES 



; RETURN 



JSEIZE THE DRIVE BY READING CS1 REG 



notrdy: 
4$: 



2$: 



000226 
000006 



005374' 104405 000000" 



000013 
176442 
000000' 
175414 



172512 

001600' 

174170 

007024' 



5S*. 



MOV 
TST 
BIT 

BNE 
BREAKS 



#77777, CL 

&RMCS1 
JB1T11,«R 



MCS1 



„ _... L , BEGIN 

BREAK$,REGIN 

DSC CLK 

BNE 4$ 

MSGN$, BEGIN, NOT 

BR 5$ 

JSR R5, CLEAR 

JSR R5, READY 

BR IS 

JSR PC,ERSUB1 

MOV #6,ERRTYP 

***************** 

HRDER$#REGIN-TABL 
.♦A************** 

MOV al3,gRMCS 

JSR PC, DROP 

MSGN$, BEGIN, DRP 
JMP FINI 

RTS PC 



***** 
E 

*fr ft ** 

1 

ASCII 



; SET THE TIMER 
?GRAB THE DRIVE 

;do i have the drive ova? 

;yes 

;temporary return to monitor.... 

;THEN CONTINUE AT NEXT INSTRUCTION. 

;count « of tries 
;not done yet 
message call with common header 

?CGULD NOT GET DRIVE 
? RESET THE CONTROLLER AND DRIVE 
; IS DRIVE READY ? 
; YES, CONTINUE 
; LOAD ERROR INFORMATION 
JDRIVE NOT AVAILABLE 
*********** ******************************* 

? COULD NOT GET DRIVE .*. TIME-OUT 
****** *S ****** **************************** 

;release DRIVE 

? NO, DROP THE DRIVE 
MESSAGE CALL WITH COMMON HEADER 
;CQULD NOT GET DRIVE DROP MODULE 

;return 
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063 
064 
965 
066 
967 
068 
969 
O70 
971 
072 
973 
974 
975 
076 
977 
079 
979 
08O 
981 
082 
983 
084 
085 
986 
087 
088 
080 

m 

992 

993 

994 

995 

996 

997 

998 

990 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

100O 

1010 

1011 



005430' 
005434' 
005440' 
005444' 
005446' 
005450' 
005452' 
005454' 
005456' 
005462' 
005464' 
005466' 
005472' 
005474- 
005500' 



017701 
017704 
012702 
005003 
030201 
001006 
005203 
006302 
032702 
001771 
000207 
042704 
050304 
010477 
000207 



174162 

174150 
000001 



000400 

000007 
174110 



MACY11 

who: 
1$: 

2$: 
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SEQ 0026 



MOV 
MOV 
MOV 
CLR 
BIT 
BNE 
INC 
ASL 
BIT 
BEQ 
RTS 
BIC 
BIS 
MOV 
RTS 




GET THE ATTENTION SUMMARY 

SAVE THE STATUS REGISTER 

SET POINTER TO DRIVE. 

ZERO THE DRIVE COUNTER 

FIND IT ? 

YES, CONTINUE 

NO, INCREMENT THE DRIVE COUNTER 

SET POINTER TO NEXT DRIVE 

ALL DONE ? 

NO, GO AGAIN 

SOMERODY LIED — NO ATTENTIONS SET 

CLEAR OUT OLD UNIT NUMBER 

LOAD THE NEW UNIT NUMBER 

RESTORE THE STATUS REGISTER 

RETURN 



005502' 
005510' 


016777 


/ —————— 

173064 174100 READY: MOV 


UNITNO,»RMCS2 
«RMDS,R0 


? LOAD UNIT ADDRESS 


017700 


174076 


MOV 


? SAVE STATUS IN RO 


005514* 
005516' 


105700 




TSTB 


RO 


; DRIVE READY ? 


032700 
001417 
032700 




BPL 


IS 


; NO 


nmr- 


000100 


BIT 
BEQ 


»BIT6,R0 
*RIT8,R0 
»RIT11,R0 
«BIT12,R0 


; VOLUME VALID ? 

; no 


005526' 


000400 


BIT 


; DRIVE PRESENT ? 


005532' 


001414 
032700 

001011 




BEQ 


; no 


005534' 


004000 


BIT 


? WRITE LOCKED ? 


005540' 




BNE 


; YES 


005542' 


032700 
001406 


010000 


BIT 


; MEDIUM ON LINE ? 


005546' 




BEQ 


? NO 


005550' 


032700 
001003 


040000 


BIT 


*BIT14,R0 
RO 


} ANY ERRORS ? 


005554' 




BNE 


; YES 


005556' 
005560' 


005700 




TST 


; ATTENTION SET ? 


100401 




BMI 


1$ 


? YES 


005562' 


D00205 
005725 




RTS 


R5 


; RETURN READY 


005564' 




IS: TST 


. ®n: 


; SKIP INSTRUCTION FOLLOWING CALL 


005566' 


000205 




RTS 


; RETURN AS NOT READY 



005570' 
005574- 
0056QO' 
005604' 
005610' 
005612' 

005614' 
005622' 
005630' 



014167 
010167 

005721 
005722 

016767 
017767 

000207 



172312 
172302 
1723Q4 
172274 



173760 
173752 



172256 
172252 



ERSUB2: MOV -(R1),ASB ; LOAD THE DATA 

MOV RI,SBADR ; LOAD ADDRESS OF DATA WRITTEN 

MOV -(R2)«AWAS ; LOAD THE DATA 

MOV R2,WASADR ; LOAD ADDRESS OF DATA READ 

TST (Rij+ / RESET REG. 1 

TST (R2)+ ? RESET REG. 2 

ERSUBl: MOV RMCS1,CSRA ; LOAD ADR OF CURRENT CSR 

MOV gRMCSl,ACSR ; LOAD CONTENTS OF CURRENT CSR 

RTS PC ? RFTURN 



Jillllii 

iiiir 
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005722' 000207 



m 

172 
17^ 



750 
750 

§°? 
716 



172650 
000004 



104405 000000* 001600* 



1$: 



2$: 
; 



MOV 
MOV 
MOV 
BIT 
BNE 



ttBIT5, 
8-1,1*6 
*77777 
8B1T7, 



&RMCS2 
HAS 
,CLK 
fiRMCSI 



BREAKS, REG^ 
BREAKS, BEGIN 



DEC 
BNE 
CLR 
MOV 
.*«***** 



CLK 
DVICE 

turn 



SEQ 00?7 



H R DP$fBEGIN,T 
•ft************ 

RTS P< 



******* 



; ISSUE AN RH11 1NIT 

;CLEAR ALL ATA RITS 

? SET THE TIMER 

? CONTROLLER READY ? 

; YES, CONTINUE 

TEMPORARY RETURN TO MONITOR. 

?THFN CONTINUE AT NEXT INSTRU 

; WAIT SOME MORE "> 

\ NO, SET TO DROP THE MODULE 
•CONTROLLER NOT READY 
**************************** 

i CONTROLLER NOT READY 
************************* 

? RETURN 



********** 
******* 
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1033 
1034 
1035 

m 

1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 

1811 

1050 
1051 

1811 

1054 
1055 
1056 
1057 
1058 
1059 

W! 

1062 
1063 
1064 
1065 
1066 
1067 

m% 

1070 

m 

m 

1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 



mm- 

005734- 

mm- 



016700 
010067 
005720 

muz 

010067 
005720 
010067 

mm 

005720 
010067 

mm 

005720 
010067 

mm 

005720 
010067 

mm 

005720 
010067 

mm 

005720 

»B8 

005720 
010067 

mm 

005720 
010067 

mm 

005720 
010067 



062700 
032767 
001402 
062700 
010067 

ill! 



«ia: 



006 



172056 
173644 

173640 

173634 

173630 

173624 

173620 

173614 

173610 

173604 

173600 

173574 

173570 

173564 

173560 

173554 

173550 

173544 

173540 

173534 

173530 
001000 

I 7 ! 65 * 
000050 
100000 

000024 
17 347 2 

mm 
mur 



SETUP: 



171652 



35: 



1$: 



2$: 



MOV 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

BIT 

BEQ 

MOV 

ADD 

BTT 

BEQ 

ADD 

MOV 

TST 

MOV 

MOV 

MOV 

MQVR 

RTS 



ADDR,R0 
R0#RMCS1 
(R0) + 
R0,RMWC 
(R0) + 
R0,RMPA 

ROfRMDA 
<R0) + 

R0<RMCS2 

(RD)* 

on .Dune 



SEQ 0028 



Si 



),RMDS 
*0) + 



i\ 



(R0) + 
*0,RMER1 
[ROU 
in dm tc 



R0,RMAS 

R0,RMLA 
(ROV 
R0#RMDB 
(R0) + 
R0,RMMR1 

ROtRMDT 
(R0) + 
R0,RMSN 
(R0) + 
RO^RMOF 
(R0) + 
R0,RMDC 

(r6u 

R0#RMHR 

R0,RMMR2 

R04rRMER2 

(R0)+ 

R0«RMEC1 

(RO) + 

R0*RMEC2 

#ADDR22,RES1 

AODR/PO 

#50,R0 

|BIT15,SR1 




GET DEVICE ADDRESS 
GENERATE REGISTER ADDRESSES 



;ll/70 MONITOR? 
?NO 

;locate the rmbae 
;assume 22 registers 

;32 REGISTER o 

;BRANCH IF NOT 32 REGISTERS 

; ADJUST THE RMBAE ADDRESS 



GET VECTOR ADDRESS 

SET PRINTER JUST IN CASE 

SET PRIORITY 

RETURN 



111 
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■P 



1087 


006202- 
006210' 


020040 


05U24 
051105 
047522 


047101 


.Oflfl 


043123 
051105 


020040 


089 


006216' 


022522 


090 


006224" 


000 






.091 


006225' 
006232' 


040 


046440 


051501 


L092 


041123 


051525 
044522 


020040 


093 
.094 


006240- 


040520 


054524 


006246* 
006254' 


020040 


051105 


047522 


.095 


022522 
40 


000 




.096 


006257' 


046440 


051501 


097 


006264' 


041123 
040504 


051525 
040524 


020040 


09P 


006272- 


020040 


099 
.100 


006300- 
06 30 6' 
006314' 


040520 
020040 


044522 


054524 
04752? 


051105 


101 


022522 


000 




102 


006317- 
006324- 


040 


042040 


044522 


.103 


042526 
40 


020040 


000 


1104 


006331- 


042040 


047522 


.105 


006336' 


050120 


042105 


000045 
054522 


1106 


006344' 


051040 


052105 


1107 


006352' 


042440 


041530 


042505 


HOP 


006360' 


042504 


022504 
020040 
000105 
053440 
041455 


000 


1109 


006365" 


040 


051127 


11 


LO 


006372' 


052111 




H 


:1 


006376' 
006404' 
006412" 


020040 


044522 


042524 


042510 


11] 


3 


045503 


000 




11 


4 


006415' 
006422' 


040 


020040 


042522 


11 


5 


042101 


000 




.6 


006425' 


040 


040504 


040524 
020105 
022522 


11 


7 


006432- 
006440- 


046040 


052101 


n\ 


.8 


051105 


047522 


9 


006446' 
006447' 


000 






1120 


40 


051104 


053111 


1121 


006454' 


020105 


047516 


020124 


1122 


006462- 
006470- 


042522 


042101 


022531 


1123 


000 






1124 


006471' 


040 


047503 
047516 


046125 


1125 


006476" 


020104 


020124 


1126 


006504' 


042507 


020124 


051104 


Mil 


006512- 


053111 


022505 


000 


006517' 
006524' 


137 


057537 


020137 


1129 


047516 


020124 
031460 
022462 
051104 


020101 
051057 


1130 


006532' 
006540' 


mm 


1131 


000 


006545' 


045 


050117 


1133 


006552' 


042520 


020104 


046522 


1134 


006560' 


050104 


046040 
051104 


040517 


1111 


006566' 
006574- 


020104 


053111 


022505 


000 
053117 




1137 


006577' 


045 


051105 


113B 


006604' 


031440 
020104 


020062 


040502 


1139 
1140 


006612' 


042523 
020123 


052103 
042522 


006620' 


051117 
047503 


1141 


006626- 


042122 
041501 


042105 


IV 


12 


006634- 


050054 


020113 
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MES1: .ASCIZ ' TRANSFER ERROR*" 

MES2: .ASCIZ ' MASSBUS PARITY ERROR*' 

MFS3: .ASCI7 ' MASSBUS DATA PARITY ERROR*' 

MFS4: .ASCIZ ' DRIVE ' 

MFS5: .&SCI7 ' DROPPED%- 

MFS6: -ASCIZ ' RETRY EXCEEDEO*- 

MES7: .ASCIZ ' WRITE' 

MES8: »ASCIZ " aJPlTE-CHECK- 

MES9: .ASCIZ - READ- 

MFS10: .ASCI7 ' DATA LATE ERROR"*' 

MFSll: .ASCI7 - DRIVE NOT READY*' 

MFS12: .ASCI7 ' COULD NOT GET DRIVE*" 

MFS13: .ASCT7 ' „ NOT A RM03/RM02*' 

MF.SLDP: - ASCIZ "^DROPPED RMDP LOAD DRIVE*' 

XMES14: .ASCIZ "*OVER 32 BAD SECTORS RECORDED,? ACK NOT ACCEPTABLE! ' 



SEQ 0029 
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SEQ 0030 



WM : Q 



1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 

1111 

1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 

118 
1177 
1178 
1179 

\m 

1182 

1185 
1186 

mi 

1189 
1190 
1191 
1192 
1193 
194 
95 
96 
97 
98 



006642' 
006650" 
006656' 
006662' 
006670' 
006676' 
006704- 
006712- 
006720' 
006726- 
006734' 
006742- 

006746- 
006750- 
006752- 
006754- 
006756' 
006760' 
006762- 
006764- 

oor 

oot. , 

006772' 
006774' 
006776 
107000 



047516 
042503 
042514 
051045' 
053105 
044124 
020104 
043040 
040506 
020055 
046440 
022505 
~")6746' 



006 



020124 
052120 
000045 
052105 
047111 
020105 
050123 
046111 
046111 
051104 
042117 
000 



006545- 
1777 — 



1777 

006225- 

177777 



W 



* f 777 
806202- 
'"1111 
)622' 
.777 
006257- 
177777 
006365* 
006344' 

mm 

006375- 

006344- 

177777 

006415- 




007054 
007061 
007062 



041501 
041101 

044522 XMES15: .ASCIZ '^RETRIEVING THE BAD SPOT FILE FAILS— DROP MODULES' 

020107 

040502 

052117 

020105 

026523 

050117 

046125 

.EVEN 

ldrive: mesldp 

-1 
trerr: MESl 

177777 
MCPERR: MES2 

177777 
MDPERR: MES3 

177777 
EXCEDl: MESf 

MES6 

177777 
EXCED2: MES8 

17^777 

EXCED3: MESQ 

MES6 

177777 

MES10 

177777 



DLTERR: 



imi 



TOUT: MES12 
1777" 



77 



DRP: 


MES4 
NUMB 
MES5 
177777 




DRP1: 


MES4 
NUMB 
MES13 
177777 




MES14: 


XMES14 
177777 








MES15: 


XMES15 
177777 




ADRl: 


.BLKB 


5 


numb: 


.BYTE 







.BYTE 







.EVEN 




TRYl: 


-BYTE 






e m 
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TRY2: 


.RYTE 





TRY3: 


-BYTE 





TRY4: 


.BYTE 





TPY5: 


.BYTE 





TRY6: 
TRY7: 


.BYTE 





.BYTE 





TRY8: 


.BYTE 





TRY9: 


.BYTE 





TRYIO: 


.BYTE 





TRYll: 


.BYTE 





TRY12: 


.BYTE 





flag: 


.BYTE 





TRK: 


.BYTE 


°0 


fix: 


.BYTE 




.EVEN 





?NEED DO NOT HELETE FROM CODE 



OOOOOl 
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CROSS REFERENCE TABLE ~ USER SYMBOLS 



ABU 

ACSR 

ADDR 

ADDR22= 

ADRi 

ASB 

ASTAT 

AWAS 

BADFL 

BADFL2 

BADLOP 

BADSEC 

BADSPT 

BEGIN 



mm 



001000 
Q07054R 
000106R 
000104R 

milk 

000500R 
OOOOOOR 




539 



llff 

689 
1002* 


1°2 5 
1073 






















1004* 
505 
515 

2499 
431 

Hi 

602 
718 
752 
941 
405 
762 
683 
778 
556 
445 


507 






















578* 

456 

471 

675 

943 

720 

813 


744* 

4 BO 

499 

679 

944 

965 

818 


802* 

877 

516 

680 

947 

824 


8«2 
524 
696 
955 

847 


8«6 
529 
704 
959 


8°9 
565 


569 

739 

1023 


573 

760 

1029 


585 
774 


592 

780 


599 
783 


988 
990 

766 

1077 

558 

502 


768 

725 

538 


992 

758 
924 


930 

















mm 



407 
984 
677 
764 
748 
527* 
440* 
812# 
674 
10*5 



373S 
565 



799 
939* 
398 
518 

4510 

461* 

855 

628 



1017 



7<U 
971 



527 

897 
675 



801 
945* 
403* 
568* 



1020 
986 



559* 
679 



1019* 
520 



716 

680 



1024* 



S12* 
943 



815 
944 



817* 
1022 



821 
1023 



627 


628* 
877 


642 


643* 


857* 


903 




643 


661 


830* 


903* 



660 



RM4D DSC/X11 SYSTEM RXERCISEK MODULE 
XRMADO.Pll l?-Dfc.C-T9 16:17 



MACY11 30A(1052) 12-DEC-78 16:22 PAGE 36 
CROSS REFERENCE TABLE — USER SYMBOLS 



111 

sir 



DAOST 


002070R 

104411 

104404 


435 


438» 




















DATCKS= 


248* 
248* 






















DATER^= 






















OLTCMT 


000454R 
007010R 
000560R 


316ft 

760 

365* 


404* 


757* 


















DLTEPR 


117311 




















DRIVb. 


438* 


927* 


932* 
















DRnP 


004056R 


604 


729* 


958 


















DRP 


007024R 


605 


959 


11*18 


















DPP1 
DSKADR 


007034R 
000554R 


1135* 
363* 


462* 
874* 


463* 


466* 


512* 


513* 


514 


625 


640 


658 


831* 






873* 




















DVICE 

DVID1 
EA22 


000556R 
000014R 


364* 


418* 


428 


430* 


434 


438 


452 


535 


735* 


932 


1026* 


418 




















000512R 


335« 


698 


699* 


700* 


701 














ENDIT<; = 
END* = 


18151? 


248* 
248* 


569 
573 




















ERRORS 


004114R 


711 


744* 




















ERRTYP 


000106R 


222* 


772* 


704* 


953* 


1027* 














ERSURl 
ERSUB2 


88ii4gg 


754 


952 


1009* 


















1002* 






















EXCEOl 


006766R 


585 


1164* 

11678 




















EXCED2 


006774R 


592 




















EXCFD3 


007002R 


5«9 


1170* 
704 




















EXITS = 


104400 


248ft 




















FDUNIT 


005222P 
000S02R 


444 


501 


532 


923* 


928 














FERAUR 


327* 


307 




















FILE 


000252R 
003042R 


2489 






















FINT 


436 


447 


455 


500 


517 


537 


572* 


960 








FIX 
FLAG 


007102P 
007I00P 


l iW 


445 
930* 


502 
1210* 


53B 


556 


558* 


718 


720* 


725* 


813 


818* 






924* 


















FREE 


000150R 
000474R 


240* 






















FUNC 


324* 
248* 


622* 
471 


637* 


655* 


702* 


703 












GETPAS= 


002776R 


524 


















GOA 


557 


561* 


590 


















GOb 


0Q3006R 
002736R 
003630R 


563* 
5546 
636 


597 




















GOC 
GOGO 


583 
651 


669 


687* 
















GWBUF$= 
HRDCNT 


104414 
000044R 


248* 


529 




















202* 
248H 
204» 






















HROER$= 
HRDPAS 


104405 
000050R 


774 


955 


1029 




































ICONT 


000036R 


1<>9* 






















ICOUNT 


000040R 


200 tt 

229* 






















IDNUM 


000122R 
000000 






















IMODX.= 


241(f 


530 




















INIT 


000030R 


106 9 






















1NTP 


000120R 


228* 


402* 




















LDRIVE 


006746R 

104416 

000514R 


431 


1156* 




















MAP22$= 
MBLKRV 


248* 
336* 


696 




















411 


846 


















MBLKTR 


000516R 


337* 


844 




















MCPERR 


006756R 
006762R 


783 


1160* 
1162* 




















MDPPRP 


7R6 




















MESLDP 


006545R 


1132ft 

1087$ 


1156 




















MES1 


006202R 


1158 





















SEQ 0033 



839* 



847 
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J) 



MFS10 


006425R 


1116a 
1120* 


1 


L73 








MESH 


006447R 


1 


L76 








MES12 


006471R 
006517R 
007044R 


1124* 
1128* 


1 


.78 








MES13 


1 


.37 








MES14 


499 


1 


.89* 








MESlb 


007050R 


516 


1 


■IV 








MES2 


006225R 


1091* 


1 








MES3 


006257R 
006317R 


1096* 


.62 








MES4 


1102* 


1 


.Rl 


11«5 






MES5 


006331R 


1104* 


1 


.33 








MES6 


006344R 


1106* 


i 


.65 


1168 


1171 




MES7 


006365R 


1109* 
1111* 


1 


.64 








MES Q 


006376R 


1 


.67 








MES9 
MHICY 


006415R 
000524R 


'JIM 


1 


,70 
21 


821 






MIXDV 


000574R 


371* 


473 


826 


904* 


Q1Q 


MLOWCY 


000522R 


339* 


815 








MODF 


000520R 


3388 
183* 


870 








MODNAM 


000000R 










MQDSP 


000252R 


1Q7 


246* 








MODI 


000576R 


372* 


405* 


409* 


464 


6R4 


MSGNS = 


104403 


248* 
959 


431 


499 


516 


585 


MSGSS = 


104402 


248* 










MSGS = 


104403 


248* 










NEXT 


002620R 
003206R 


532* 


571 


575 


606 




NEXTA 


579 


5R6 


5Q3 


600 


602 


NOT 


007014R 


947 


11768 








NOTRDY 


005300R 


450 


506 


545 


939« 




NTRUPT 


003764R 


6«8 


706* 








NOLL = 


000000 


248* 










NUMB 
NXT1 


007061R 


11R2 


1186 


1195* 






003046R 


575* 










ONCEE 


000476R 


325* 


416* 








OPEN = 


000000 


1R4 


1O0 


191 


1°2 
224 


k% 3 
226 






219 


221 


223 






239 


240 
739 


248* 






OTOA$ = 


104420 


248* 








PASCNT 
PAl° 


0O0034R 


198* 

332* 










000504R 


6<U* 


6°6 






PA22 


000510R 
000004 


334* 


697 








PTRO$ = 
POPSP = 


248* 


708 








005726 


248* 










POPSP2= 


022626 
000000 


248* 










PRTY = 


248i* 










PRTYO = 


000000 


1«8 
248* 


248* 








PRTV1 = 


00G040 










PRTV2 - 


000100 


248* 










PRTY3 = 


000140 


24B # 

248* 










PRTV4 = 


000200 










PRTY5 = 


000240 


1«7 


248* 








PRTV6 = 


000300 


248* 










PRTY7 = 


000340 
177776 


248* 

24R* 










PS = 










PSW = 


177776 


243* 










PUSH = 


005746 


248* 













760 



780 



786 



210 


211 


212 


213 


214 


215 


216 


217 


227 


228 


231 


232 


234 


235 


237 


238 
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PUSH2 - 


024646 

104417 

QQQ054R 

000130R 

0Q0126R 

000132R 

000124R 

003432R 

005502R 


248« 
248? 






















RANDS = 
RANNUM 






















mi 






















RBUFEA 


663 
565 
475 




















RBUFPA 


230l 
477 


657 


















RBUFSZ 


525 


















RBUFVA 


471 


524 


















READ 


563 


655* 


















READY 


448 


504 


543 


950 


9RQtf 














RESTRT 


002534R 
004434R 
000056R 


w 


518*f 
751 




















RESYNC 
RESl 


753 


B04» 
















208* 


689 


1073 


















RES2 


000060R 


209* 

478 

555 






















RETRX 

RETRY1 

RETRY2 


881SSSS 


512« 

576 i 

594? 




















003122R 


562 




















RETRY3 


003154R 
QQ5632R 
001616R 
Q01604R 
00165QR 
001600R 

001610R 


564 




















REZET 


443 


1017* 




















RMAS 
RMBA 


382# 

377ft 
395* 


m. 


787 
657* 


963 
601 


1018* 
607* 


1048* 
1018* 










RMBAE 
RMCS1 

RMCS2 


698* 


1034* 
533* 


















375* 
1042* 

mt 

3*4* 


467* 


677 
6^0* 


6B3* 
6R7* 


703* 
755 


745 
764 


7*2 
7Q1 


766 
828* 


940 941 
0*4 976* 


957* 1009 
900* 1017 


























RMCS3 


88j 


65 2R 


1082* 




















RMDA 


606R 


469* 
790 


625* 


640* 


658* 


838 


839 


1040* 








RMDB 


00 


622R 
634R 
612R 
626R 


7Q3* 


708* 


1052* 

660* 

1044* 














RMDC 
RMDS 


00 

oo: 


im 


nv 


627* 
768 


642* 
981 


832 


834 


1062* 








RMDT 


00 


386* 


905 


907 


909 


911 


1056* 












RMECl 
RMEC2 


8' 


644R 

ffl R » 


ffll 

m\ 

390* 
383* 

38i! 


\IW 




















RMER1 


748 


1046* 


















RMER2 


oo: 


64 2R 


778 


1068* 


















RMHR 


00 


6 3£ R 
620R 


1064* 
1050* 




















RMLA 


00 




















RMMR1 
RMMR2 


88 


m 


1054* 
1066* 




















RMOF 


oo: 


632R 
630R 
602R 


1!9{ 

376* 


684* 


1060* 


















RMSN 


88: 


1058* 




















RMHC 
RM03CK 


623* 
542 


638* 


656* 


1036* 














00* 


S140R 
006R 


472 


626 


641 


659 


903» 












ROOM 


00' 


716* 

ilf 


750 




















RSTPT 
RSTRTl 


00( 

oo; 


W& 


519 


521 


523# 
















SBADR 
SEC 


000102R 
000466R 


1003* 
842* 


865* 


870 


872* 


873 


886 


888* 


889 


893* 




SETUP 


005724R 
000042R 


442 


10338 




















SOFCNT 

SOFER5= 

SOFPAS 


Mil 






















104406 
000046R 


796 




















203| 






















SPOINT 


000032R 
000016R 


197* 
190$ 


439 




















m lz - 


ffl 


602 


758 


1077 














SR2 


OOC 


)020R 


191* 























.) 
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STAT 

STRT 

STRT1 

SVRO 

SVR1 

SVR2 

SVR3 

SVR4 

SVR5 

§VR6 
YSCNT 
TABLE 
TBOF 
TOUT 
TRERR 
TRK 

TRPDFD= 
TRYl 
TRY10 



SYSTEM EXERCISER MODOLE 
12-DEC-78 16:17 




TRY11 
TRY 12 
TRY2 



TRY3 
TRY4 
TRY5 
TRY6 
TRY7 
TRY8 

«r 

Tie 

UNITNO 

UPDATT 

VECTOR 

WASADR 

UBUFEA 

MBOP- 

HBUP... 

MBUFS7 

HCNT1 

5g?I 2 

WDTO 
WHO 

mw 

XFERAD 

XFERCT 

XFLAG 

XMEM, m 

XMES14 

XMES15 



__ jOOR 
0OQ564R 

006752R 
007101R 

007075R 
007076R 
QQ7077R 
007065R 

mmi 

007070R 

mm 



UPRQ 
UFS7 



661672R 

mm 

888p 

000572R 

mm 

000104R 
000136R 
000134R 
0Q0140R 
000142R 
000566R 

milk 

mm 

if! 

000506R 
006577R 
006662R 



3?Bl 



11468 
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522 

560 



580* 
1208* 



588 
594* 



1202* 
1204* 



635* 
1189 
1191 



llllf 



955 1029 



868 874 882 1211* 
5*1 110R# 



1199* 
595 1200* 



467 



1083 



645 
639 



717 

531* 

476* 



508* 



623^ 
525 s * 



540* 



638 
526* 



693* 



701* 



702 
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00Q552R 
007104R 



3628 
3738 



793 
446 
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577 



000000 
007104 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GENERATED: 

XRMAD0,XRMAD0/SOL/CRF:SYM=DDXCOM,XRMAD0 
RUN-TIME: 2 3 .5 SECONDS 
RUN-TIME RATIO: 28/6=4.5 
CORE USED: 7K (13 PAGES) 



